home *** CD-ROM | disk | FTP | other *** search
/ Computer Shopper 201 / DPCS1104.ISO / Full / QuickBooks / QBTutor / Lesson6 / Lesson6.dcr / 00146_Check rows positioning.ls < prev    next >
Encoding:
Text File  |  2001-01-25  |  854 b   |  35 lines
  1. property pInvoiceLine, spriteNum
  2. global PaymentInvoiceList
  3.  
  4. on getPropertyDescriptionList
  5.   description = [:]
  6.   addProp(description, #pInvoiceLine, [#default: 0, #format: #number, #comment: "Invoice Line:"])
  7.   return description
  8. end
  9.  
  10. on beginSprite me
  11.   checkCheckPos()
  12. end
  13.  
  14. on checkCheckPos me
  15.   tt = PaymentInvoiceList.count
  16.   if tt > 6 then
  17.     tt = 6
  18.   end if
  19.   if pInvoiceLine > tt then
  20.     if sprite(spriteNum).locV > 0 then
  21.       sprite(spriteNum).locV = sprite(spriteNum).locV - 600
  22.     end if
  23.   else
  24.     if value(member("payfield:Payment" & string(pInvoiceLine)).text) > 0.0 then
  25.       if sprite(spriteNum).locV < 0 then
  26.         sprite(spriteNum).locV = sprite(spriteNum).locV + 600
  27.       end if
  28.     else
  29.       if sprite(spriteNum).locV > 0 then
  30.         sprite(spriteNum).locV = sprite(spriteNum).locV - 600
  31.       end if
  32.     end if
  33.   end if
  34. end
  35.